﻿Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient
Imports DoAnQuanLyBanHang1065043_1065007.DoAnQuanLyBanHang.General

Namespace DoAnQuanLyBanHang.DTO
    Public Class NhapHangData
        Private m_NhapHangData As New DataService()
        Public Function LayNhapHang() As DataTable
            Dim cmd As New SqlCommand("SELECT * FROM Nhap_Hang")
            m_NhapHangData.Load(cmd)
            Return m_NhapHangData
        End Function
        Public Function LayDSNhapHangTheoThang(thang As Integer, nam As Integer) As DataTable
            Dim cmd As New SqlCommand("SELECT NCC.MaNCC, NCC.DiaChi, NCC.DienThoai, NCC.TenNCC, NH.MaMH, NH.TenMH, NH.NgayNhap, NH.Tháng, NH.Năm, NH.[Tổng Nhập], NH.SoLuong, NH.GiaBan, NH.DonGia, NH.TenNCC, NH.TenLoaiGiaoDich, NH.LoaiTien FROM Nhap_Hang NH INNER JOIN Mat_Hang MH ON MH.MaMH = NH.MaMH AND MH.TenMH = NH.TenMH INNER JOIN Nha_Cung_Cap NCC ON NCC.TenNCC = NH.TenNCC INNER JOIN Loai_Tien LT ON LT.LoaiTien = NH.LoaiTien INNER JOIN Loai_Giao_Dich LGD ON LGD.TenLoaiGiaoDich = NH.TenLoaiGiaoDich WHERE NH.Tháng = @Tháng AND NH.Năm = @Năm")
            cmd.Parameters.Add("Tháng", SqlDbType.Int).Value = thang
            cmd.Parameters.Add("Năm", SqlDbType.Int).Value = nam
            m_NhapHangData.Load(cmd)
            Return m_NhapHangData
        End Function
    End Class
End Namespace
